home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00011_Title Script.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  298 b   |  19 lines
  1. property lgroup, ptitle
  2.  
  3. on birth me
  4.   set ptitle to EMPTY
  5.   set lgroup to []
  6.   add(lgroup, birth(script "Group Script"))
  7.   return me
  8. end
  9.  
  10. on addgroup me
  11.   add(lgroup, birth(script "Group Script"))
  12.   return me
  13. end
  14.  
  15. on settitle me, title
  16.   set title to collecttitle(title)
  17.   set ptitle to title
  18. end
  19.